unit FAbout;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    Panel:              TPanel;
    ProgramIcon:        TImage;
    ProductName:        TLabel;
    Version:            TLabel;
    Copyright:          TLabel;
    procedure PanelClick(Sender: TObject);
  end;

var
  AboutBox:             TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.PanelClick(Sender: TObject);
begin
    Close;
end;

end.

